object RoleEditForm: TRoleEditForm
  Left = 0
  Top = 0
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #35282#33394#32534#36753
  ClientHeight = 359
  ClientWidth = 384
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 13
  object btnSave: TBitBtn
    Left = 301
    Top = 19
    Width = 75
    Height = 25
    Caption = #30830#23450'(&E)'
    TabOrder = 1
    OnClick = btnSaveClick
  end
  object btnClose: TBitBtn
    Left = 301
    Top = 54
    Width = 75
    Height = 25
    Caption = #36820#22238'(&C)'
    TabOrder = 2
    OnClick = btnCloseClick
  end
  object GroupBox1: TGroupBox
    Left = 16
    Top = 8
    Width = 265
    Height = 97
    Caption = #35282#33394#20449#24687
    TabOrder = 0
    object Label1: TLabel
      Left = 27
      Top = 25
      Width = 48
      Height = 13
      Caption = #35282#33394#32534#30721
      FocusControl = dbedtRoleCode
    end
    object Label2: TLabel
      Left = 27
      Top = 62
      Width = 48
      Height = 13
      Caption = #35282#33394#21517#31216
      FocusControl = DBEdit2
    end
    object dbedtRoleCode: TDBEdit
      Left = 81
      Top = 22
      Width = 160
      Height = 21
      DataField = 'RoleCode'
      DataSource = dsRole
      TabOrder = 0
    end
    object DBEdit2: TDBEdit
      Left = 81
      Top = 59
      Width = 160
      Height = 21
      DataField = 'RoleName'
      DataSource = dsRole
      TabOrder = 1
    end
  end
  object GroupBox2: TGroupBox
    Left = 16
    Top = 111
    Width = 360
    Height = 242
    Caption = #35282#33394#26435#38480
    TabOrder = 3
    object tvGrant: TJvCheckTreeView
      Left = 2
      Top = 15
      Width = 356
      Height = 225
      Align = alClient
      HideSelection = False
      Indent = 19
      ReadOnly = True
      TabOrder = 0
      OnDeletion = tvGrantDeletion
      LineColor = clScrollBar
      Checkboxes = True
      CheckBoxOptions.Style = cbsJVCL
      CheckBoxOptions.CascadeLevels = -1
    end
  end
  object cdsRole: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 293
    Top = 81
    object cdsRoleRoleCode: TWideStringField
      DisplayLabel = #35282#33394#32534#30721
      FieldName = 'RoleCode'
      Size = 50
    end
    object cdsRoleRoleName: TWideStringField
      DisplayLabel = #35282#33394#21517#31216
      FieldName = 'RoleName'
      Size = 50
    end
  end
  object dsRole: TDataSource
    DataSet = cdsRole
    Left = 327
    Top = 81
  end
  object cdsRoleGrant: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 104
    Top = 232
    object cdsRoleGrantRoleCode: TWideStringField
      DisplayLabel = #35282#33394#32534#30721
      FieldName = 'RoleCode'
      Size = 50
    end
    object cdsRoleGrantPrivilegeID: TWideStringField
      DisplayLabel = #36164#28304#32534#30721
      FieldName = 'PrivilegeID'
      Size = 50
    end
  end
end
